home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / InsideBa1994 / InsideBasic-94 / IB 94 / FN Get Selection / FN GetSelection
Text File  |  1994-01-20  |  667b  |  28 lines
  1.  
  2.  
  3.  
  4. LONG FN getSelection$
  5.   gsHndl& = TEHANDLE(WINDOW(0))
  6.   gsStart = PEEK WORD(PEEK LONG(gsHndl&)+32)
  7.   gsEnd   = PEEK WORD(PEEK LONG(gsHndl&)+34)
  8.   gsLen   = gsEnd - gsStart
  9.   IF gsLen > 255 THEN gsLen = 255
  10.   BLOCKMOVE PEEK LONG(FN TEGETTEXT(gsHndl&))+gsStart,VARPTR(fTemp$)+1,gsLen
  11.   POKE VARPTR(fTemp$),gsLen AND 255
  12. END FN = fTemp$
  13. '
  14. '==========================================================================
  15. '
  16. WINDOW 1:COORDINATE WINDOW:TEXT 0,12,0,0
  17. EDIT FIELD 1,"This is a test. (Press Command-period to exit.)",(20,20)-(200,200),2
  18. '
  19. "Loop"
  20. DIALOG ON :BREAK ON
  21. DIALOG OFF:BREAK OFF
  22.  
  23. PRINT%(20,230)"The selection is: ";FN getSelection$;
  24. CLS PAGE
  25. GOTO"Loop"
  26.  
  27.  
  28.